home *** CD-ROM | disk | FTP | other *** search
/ Megahits 6 / Megahits 6 (1995)(GTI - Rhein-Main-Soft)(DE)(Disc 2 of 2)[!].iso / time_ungepackt / time_361_390 / time_375 / m&m3.13 / examples / rexxtest.rexx < prev   
OS/2 REXX Batch file  |  1995-07-15  |  4KB  |  191 lines
  1. /* RexxTest mit Menus&More              */
  2. /* §VER: 1.00 (02.02.95)                */
  3. /* © 1995 by Axel Sodtalbers, Göttingen */
  4.  
  5. OPTIONS RESULTS                                     /* Init */
  6. ADDRESS "MMPlayer"
  7.  
  8. 'ALOHAPLAYER'
  9. oldmsg = ''
  10. 'DrawColor 0'
  11. 'DrawRectFill 190, 190, 300, 210'  
  12.  
  13. 'SwitchButton 0, 0'                         /* Beide Buttons ausschalten */
  14. 'SwitchButton 1, 0'
  15. 'SwitchTitle 0'
  16.  
  17. /* -------------------------------------------------------- */
  18.  
  19. call MessageOut '"Query Function..."' 
  20.  
  21. msg = "'Query is giving the following results:||||"
  22. msg = msg || 'PlLeft      : '
  23. 'QUERY PLLEFT'
  24. msg = msg || RESULT || '||PlTop       : '
  25. 'QUERY PLTOP'
  26. msg = msg || RESULT || '||PlWidth     : '
  27. 'QUERY PLWIDTH'
  28. msg = msg || RESULT || '||PlHeight    : '
  29. 'QUERY PLHEIGHT'
  30. msg = msg || RESULT || '||PlPlanes    : '
  31. 'QUERY PLPLANES'
  32. msg = msg || RESULT || '||PlColors    : '
  33. 'QUERY PLCOLORS'
  34. msg = msg || RESULT || '||MMRexxDebug : '
  35. 'QUERY MMREXXDEBUG'
  36. msg = msg || RESULT || '||IsGerman    : '
  37. 'QUERY ISGERMAN'
  38. msg = msg || RESULT || "||'"
  39.  
  40. 'Req' msg 'Understood'
  41.  
  42.  
  43. /* -------------------------------------------------------- */
  44.  
  45. AX = 100
  46. AY = 40
  47. AW = 440
  48. AH = 130
  49.  
  50. 'DrawColor 1'
  51. 'DrawRectFill' AX AY AX + AW AY + AH
  52.  
  53. call MessageOut '"Testing: DrawLine Function..."'
  54.  
  55. 'SetWaitPointer'                                        /* DrawLine   */
  56.  col = 4
  57. 'DrawColor' col
  58.  
  59. do px=AX to AX + AW by 4
  60.    'DrawLine' AX AY px AY + AH
  61.    'DrawColor' col
  62.    col = col + 1
  63.    if col = 8 then col=4
  64. end
  65.  
  66. col = 4
  67. do px=AX + AW to AX by -4
  68.    'DrawLine' AX + AW AY px AY + AH
  69.    'DrawColor' col
  70.    col = col + 1
  71.    if col = 8 then col=4
  72. end  
  73.  
  74. col = 4
  75. do px=AX to AX + AW by 4
  76.    'DrawLine' AX AY + AH px AY
  77.    'DrawColor' col
  78.    col = col + 1
  79.    if col = 8 then col=4
  80. end  
  81.  
  82. col = 4
  83. do px=AX + AW to AX by -4
  84.    'DrawLine' AX + AW AY + AH px AY
  85.    'DrawColor' col
  86.    col = col + 1
  87.    if col = 8 then col=4
  88. end  
  89. 'ResetPointer'
  90. Call Wait
  91.  
  92.  
  93. Call MessageOut "'DrawCircle Function...'"
  94. do rad=20 to 60 BY 3
  95.   'DrawColor' random(4,7) 
  96.   'DrawCircle' (AX+(AX+AW))/2 (AY+(AY+AH))/2 rad
  97. end
  98. Call Wait
  99.  
  100. Call MessageOut "'DrawRectangle Function...'"           /* DrawRectangle */ 
  101. x1 = ax
  102. y1 = ay
  103. x2 = ax+aw
  104. y2 = ay+ah
  105.  
  106. do while y2>(AY+(AY+AH))/2
  107.   x1 = x1+3
  108.   y1 = y1+3
  109.   x2 = x2-3
  110.   y2 = y2-3
  111.   'DrawColor' random(4,7)
  112.   'DrawRectangle' x1 y1 x2 y2
  113. end  
  114. Call Wait
  115.  
  116. Call MessageOut "'DrawRectFill Function...'"           /* DrawRectFill */
  117. x1 = ax
  118. y1 = ay
  119. x2 = ax+aw
  120. y2 = ay+ah
  121.  
  122. do while y2>(AY+(AY+AH))/2
  123.   x1 = x1+3
  124.   y1 = y1+3
  125.   x2 = x2-3
  126.   y2 = y2-3
  127.   'DrawColor' random(4,7)
  128.   'DrawRectFill' x1 y1 x2 y2
  129. end  
  130. Call Wait 
  131.  
  132. Call MessageOut "'Some pixels now...'"                  /* DrawPixel */
  133. do px=1 to 100
  134.    'DrawColor' random(4,7)
  135.    'DrawPixel' random(ax, ax+aw) random(ay,ay+ah)
  136. end
  137. Call Wait
  138.  
  139. Call MessageOut "'And now some other requesters...'"    /* Reqs */
  140.  
  141. "ReqFile 'Select a file!' S:Startup-Sequence"
  142. Call MessageOut "'Your selection: " || RESULT || "'" 
  143. Call Wait  
  144.  
  145. "ReqDir 'Select a drawer!' RAM:"
  146. Call MessageOut "'Your selection: " || RESULT || "'" 
  147. Call Wait
  148.  
  149. 'ReqString "Please type in some text now!" YourText'
  150. Call MessageOut "'Your selection: " || RESULT || "'"
  151. Call Wait  
  152.  
  153. 'Req "Now we are switching||to another screen..." "Do the switch!"'
  154. 'SwitchScreen "MM:Examples/Logo.pic"'
  155.  
  156. 'Req "Okay, folks - that was the Menus&More ARexx Demo||Always remember: Be careful - you might be eaten by a grue!||" "Zork!"'
  157.  
  158. /* -------------------------------------------------------------- */
  159. 'SwitchButton 0, 1'                         /* Beide Buttons      */
  160. 'SwitchButton 1, 1'                         /* wieder einschalten */
  161. 'QUIT'
  162. exit
  163.  
  164.  
  165.  
  166. MessageOut:    /* Demo-Typ auf Bildschirm */
  167.     procedure expose oldmsg
  168.     parse arg msg
  169.  
  170.     'DrawColor 0'
  171.     'DrawText 200, 200,' oldmsg
  172.      oldmsg = msg
  173.     'DrawColor 4'
  174.     'DrawText 200, 200,' msg
  175.  
  176. return
  177.  
  178.  
  179. Wait:           /* Auf Mausklick warten */
  180.  
  181.     'SwitchTitle 1'
  182.     'SetTitle "Please press left mouse button or space-key!"'
  183.     'WaitForLMB'
  184.     'SwitchTitle 0'
  185.     'DrawColor 1'
  186.     'DrawRectFill' AX AY AX + AW AY + AH
  187. return
  188.  
  189.  
  190.  
  191.